Option Explicit
Sub B_Sample024()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)		'Nu@
    MsgBox mySht.Name
    Set mySht = Nothing			'
End Sub
